COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	FIFTEEN REL FILES - COUNT 'EM
C00009 00003	GEM-NODE NAMES FOR LINKS AND DATA
C00015 ENDMK
C⊗;
COMMENT FIFTEEN REL FILES - COUNT 'EM;

	REQUIRE "FATAL.REL[GEM,HE]"	LOAD_MODULE;
	REQUIRE "ARITH.REL[GEM,HE]"	LOAD_MODULE;
	REQUIRE "CONVRT.REL[GEM,HE]"	LOAD_MODULE;
	REQUIRE "III.REL[GEM,HE]"	LOAD_MODULE;

	REQUIRE "GEOMED.REL[GEM,HE]"	LOAD_MODULE;
	REQUIRE "GEMTXT.REL[GEM,HE]"	LOAD_MODULE;
	REQUIRE "MEM.REL[GEM,HE]"	LOAD_MODULE;
	REQUIRE "IO.REL[GEM,HE]"	LOAD_MODULE;

	REQUIRE "WINGS.REL[GEM,HE]"	LOAD_MODULE;
	REQUIRE "EULER.REL[GEM,HE]"	LOAD_MODULE;
	REQUIRE "BIN.REL[GEM,HE]"	LOAD_MODULE;
	REQUIRE "EUCLID.REL[GEM,HE]"	LOAD_MODULE;

	REQUIRE "VIEWER.REL[GEM,HE]"	LOAD_MODULE;
	REQUIRE "OCCULT.REL[GEM,HE]"	LOAD_MODULE;
	REQUIRE "REVEAL.REL[GEM,HE]"	LOAD_MODULE;

COMMENT BASIC GEOMED, IO AND DISPLAY;

	EXTERNAL SIMPLE PROCEDURE GEONIT;
	EXTERNAL SIMPLE PROCEDURE GEOMED;
	EXTERNAL SIMPLE PROCEDURE GEODPY;
	EXTERNAL SIMPLE PROCEDURE SHOW1(INTEGER WINDOW,GLASS);
	EXTERNAL SIMPLE PROCEDURE SHOW2(INTEGER WINDOW,GLASS);
	EXTERNAL SIMPLE PROCEDURE SHOW3(INTEGER WINDOW,GLASS);

	EXTERNAL SIMPLE INTEGER PROCEDURE IGEM(STRING FILNAM);
	EXTERNAL SIMPLE INTEGER PROCEDURE OGEM(STRING FILNAM;INTEGER B);

COMMENT EUCLID;

	EXTERNAL SIMPLE INTEGER PROCEDURE TRANSLATE(INTEGER Q;REAL X,Y,Z);
	EXTERNAL SIMPLE INTEGER PROCEDURE ROTATE   (INTEGER Q;REAL X,Y,Z);
	EXTERNAL SIMPLE INTEGER PROCEDURE SHRINK   (INTEGER Q;REAL X,Y,Z);

	EXTERNAL SIMPLE INTEGER PROCEDURE APTRAN(INTEGER Q,ET);
	EXTERNAL SIMPLE INTEGER PROCEDURE INTRAN(INTEGER ET);
	EXTERNAL SIMPLE INTEGER PROCEDURE DISTAN(INTEGER V1,V2);

COMMENT WINGED EDGE PRIMITIVES;

	EXTERNAL SIMPLE INTEGER PROCEDURE MKNODE(INTEGER TYP);
	EXTERNAL SIMPLE INTEGER PROCEDURE KLNODE(INTEGER NOD);

	EXTERNAL SIMPLE INTEGER PROCEDURE MKUNIV;
	EXTERNAL SIMPLE INTEGER PROCEDURE MKWORLD;
	EXTERNAL SIMPLE INTEGER PROCEDURE MKCAMERA(INTEGER WORLD);
	EXTERNAL SIMPLE INTEGER PROCEDURE MKWINDOW(INTEGER CAMERA,WINDOW);

	EXTERNAL SIMPLE INTEGER PROCEDURE MKB(INTEGER WORLD);
	EXTERNAL SIMPLE INTEGER PROCEDURE KLB(INTEGER BNEW);
	EXTERNAL SIMPLE INTEGER PROCEDURE KLBFEV(INTEGER BNEW);

	EXTERNAL SIMPLE INTEGER PROCEDURE MKF(INTEGER FNEW);
	EXTERNAL SIMPLE INTEGER PROCEDURE MKE(INTEGER ENEW);
	EXTERNAL SIMPLE INTEGER PROCEDURE MKV(INTEGER VNEW);

	EXTERNAL SIMPLE INTEGER PROCEDURE KLF(INTEGER FNEW);
	EXTERNAL SIMPLE INTEGER PROCEDURE KLE(INTEGER ENEW);
	EXTERNAL SIMPLE INTEGER PROCEDURE KLV(INTEGER VNEW);

	EXTERNAL SIMPLE INTEGER PROCEDURE WING(INTEGER E1,E2);
	EXTERNAL SIMPLE INTEGER PROCEDURE LINKED(INTEGER Q1,Q2);

	EXTERNAL SIMPLE INTEGER PROCEDURE ECW(INTEGER Q1,Q2);
	EXTERNAL SIMPLE INTEGER PROCEDURE ECCW(INTEGER Q1,Q2);
	EXTERNAL SIMPLE INTEGER PROCEDURE OTHER(INTEGER Q1,Q2);

	EXTERNAL SIMPLE INTEGER PROCEDURE VCW(INTEGER E,F);
	EXTERNAL SIMPLE INTEGER PROCEDURE VCCW(INTEGER E,F);
	EXTERNAL SIMPLE INTEGER PROCEDURE FCW(INTEGER E,V);
	EXTERNAL SIMPLE INTEGER PROCEDURE FCCW(INTEGER E,V);

	EXTERNAL SIMPLE INTEGER PROCEDURE BGET(INTEGER Q);
	EXTERNAL SIMPLE INTEGER PROCEDURE BDET(INTEGER Q);
	EXTERNAL SIMPLE INTEGER PROCEDURE BATT(INTEGER Q);

COMMENT EULER PRIMITIVES;

	EXTERNAL SIMPLE INTEGER PROCEDURE INVERT(INTEGER E);
	EXTERNAL SIMPLE INTEGER PROCEDURE EVERT(INTEGER B);

	EXTERNAL SIMPLE INTEGER PROCEDURE MKEV(INTEGER F,V);
	EXTERNAL SIMPLE INTEGER PROCEDURE MKFE(INTEGER V1,F,V2);
	EXTERNAL SIMPLE INTEGER PROCEDURE ESPLIT(INTEGER E);
	
	EXTERNAL SIMPLE INTEGER PROCEDURE KLFE(INTEGER E);
	EXTERNAL SIMPLE INTEGER PROCEDURE KLEV(INTEGER V);
	EXTERNAL SIMPLE INTEGER PROCEDURE KLVE(INTEGER E);

	EXTERNAL SIMPLE INTEGER PROCEDURE MKCOPY(INTEGER B);
	EXTERNAL SIMPLE INTEGER PROCEDURE GLUE(INTEGER F1,F2);
	EXTERNAL SIMPLE INTEGER PROCEDURE GLUEE(INTEGER F1,V1,F2,V2);

	EXTERNAL SIMPLE INTEGER PROCEDURE SWEEP(INTEGER F,FLG);
	EXTERNAL SIMPLE INTEGER PROCEDURE ROTCOM(INTEGER F);
	EXTERNAL SIMPLE INTEGER PROCEDURE PYRAMID(INTEGER FV);

	EXTERNAL SIMPLE INTEGER PROCEDURE REMOVF(INTEGER F);
	EXTERNAL SIMPLE INTEGER PROCEDURE FVDUAL(INTEGER B);

	EXTERNAL SIMPLE INTEGER PROCEDURE MKCUBE(REAL A,B,C);
	EXTERNAL SIMPLE INTEGER PROCEDURE MKCYLN(REAL R,N,Z);
	EXTERNAL SIMPLE INTEGER PROCEDURE MKBALL(REAL R,M,N);

	EXTERNAL SIMPLE INTEGER PROCEDURE BIN(INTEGER B1,B2);
	EXTERNAL SIMPLE INTEGER PROCEDURE BUN(INTEGER B1,B2);
	EXTERNAL SIMPLE INTEGER PROCEDURE BSUB(INTEGER B1,B2);
COMMENT GEM-NODE NAMES FOR LINKS AND DATA;

REQUIRE "⊂⊃⊂⊃" DELIMITERS;

COMMENT WORLD LOCUS;
	DEFINE XWC(V)=⊂MEMORY[V-3,REAL]⊃;
	DEFINE YWC(V)=⊂MEMORY[V-2,REAL]⊃;
	DEFINE ZWC(V)=⊂MEMORY[V-1,REAL]⊃;

COMMENT ROTATION MATRIX;
	DEFINE IX(V)=⊂MEMORY[V+0,REAL]⊃;
	DEFINE IY(V)=⊂MEMORY[V+1,REAL]⊃;
	DEFINE IZ(V)=⊂MEMORY[V+2,REAL]⊃;
	DEFINE JX(V)=⊂MEMORY[V+3,REAL]⊃;
	DEFINE JY(V)=⊂MEMORY[V+4,REAL]⊃;
	DEFINE JZ(V)=⊂MEMORY[V+5,REAL]⊃;
	DEFINE KX(V)=⊂MEMORY[V+6,REAL]⊃;
	DEFINE KY(V)=⊂MEMORY[V+7,REAL]⊃;
	DEFINE KZ(V)=⊂MEMORY[V+8,REAL]⊃;

COMMENT PERSPECTIVE-PROJECTED LOCUS;
	DEFINE XPP(V)=⊂MEMORY[V+4,REAL]⊃;
	DEFINE YPP(V)=⊂MEMORY[V+5,REAL]⊃;
	DEFINE ZPP(V)=⊂MEMORY[V+6,REAL]⊃;

COMMENT FACE, EDGE AND VERTEX RINGS;
	DEFINE H1(X)=⊂ (X LSH -18)⊃;
	DEFINE H2(X)=⊂ (X LAND '777777)⊃;
	DEFINE NFACE(E)=⊂H1(MEMORY[E+1])⊃;
	DEFINE PFACE(E)=⊂H2(MEMORY[E+1])⊃;
	DEFINE NED(E)=⊂H1(MEMORY[E+2])⊃;
	DEFINE PED(E)=⊂H2(MEMORY[E+2])⊃;
	DEFINE NVT(E)=⊂H1(MEMORY[E+3])⊃;
	DEFINE PVT(E)=⊂H2(MEMORY[E+3])⊃;

COMMENT PARTS' TREE LINKS;
	DEFINE DAD(B)=⊂H1(MEMORY[B+4])⊃;
	DEFINE SON(B)=⊂H2(MEMORY[B+4])⊃;
	DEFINE BRO(B)=⊂H1(MEMORY[B+5])⊃;
	DEFINE SIS(B)=⊂H2(MEMORY[B+5])⊃;

COMMENT MULTI PURPOSE LINKS;
	DEFINE ALT(B)=⊂H1(MEMORY[B+6])⊃;
	DEFINE ALT2(B)=⊂H2(MEMORY[B+6])⊃;
	DEFINE FRAME(B)=⊂H2(MEMORY[B+6])⊃;
	DEFINE CW(B)=⊂H1(MEMORY[B+7])⊃;
	DEFINE CCW(B)=⊂H2(MEMORY[B+7])⊃;
	DEFINE CAR8(B)=⊂H1(MEMORY[B+8])⊃;
	DEFINE CDR8(B)=⊂H2(MEMORY[B+8])⊃;

REQUIRE UNSTACK_DELIMITERS;